Option Explicit
Sub D_Sample045()
    Application.DisplayAlerts = False
    Workbooks.Close
End Sub
